<!-- #include file="configuracoes.asp" -->
<!-- #include file="interface/head.asp" -->
<%permissao "torneios"%>
<%

opcao = requestGET("opcao")
tabela = requestGET("tabela")
id_tipo = requestGET("id_tipo")
valor = requestGET("valor")


	AbreConexaoAux tabela

DIM i, j

Select Case opcao

	Case "editar"
	
		torneio_tipo_interface_editar conexao_aux, tabela, id_tipo
		
	Case "deletar"
	
		torneio_tipos_deletar conexao_aux, id_tipo
		
		Response.Write("Tipo Deletado")	
		
	Case "novo"
	
		torneio_tipos_novo conexao_aux
		
		Response.Write("<a href='torneios_tipos.asp?tabela="&tabela&"'>Tipo Criado</a>")	
	
		
	Case "editar_campo"
	
		tam = len(id_tipo)
	
		sepa = split(id_tipo,"_")
			
		campo = right(id_tipo, tam - len(sepa(0))-1)
		
		id_tipo = sepa(0)
		
		condicao = "id="&id_tipo	
		
		If campo<>"nome" OR valor<>"" then
		
			sql_edicao conexao_aux, "torneios_tipos", campo, valor, condicao
	
		End IF
		
'///////////////////////////////////////////////////////////////////////////////////////////
'Clubes	
'///////////////////////////////////////////////////////////////////////////////////////////

	Case "clubes"
	
				DIM clubes()
				ReDim clubes(MAX_Usuarios,2)		
				
				total = torneio_lista_clubes(conexao_aux, tabela, clubes)
				
				str = "Select liga FROM torneios_tipos where id="&id_tipo
				Set rsT = conexao_aux.Execute(str)				
				
				%>
				<form name="form_<%=id_tipo%>">
				<select name="selecao_<%=id_tipo%>">
				
				<%
				For i=0 to total-1
				
						str = "Select id_clube FROM clubes_tipos where liga="&rsT("liga")&" AND id_clube="&clubes(i,0)
						Set rsC = conexao_aux.Execute(str)
						
						If rsC.eof then				
				%>	
						<option value="<%=clubes(i,0)%>"><%= mercado_get(conexao_aux, tabela, clubes(i,0), "nome")%></option>
				<%
						End If
						
				Next
				
				%></select></form>
				
				
				<div><a href="javascript:painel_torneios_tipos('<%=tabela%>', '<%=id_tipo%>', 'clubes_adicionar', form_<%=id_tipo%>.selecao_<%=id_tipo%>.value, 'clubes_lista')">Adicionar</a></div><%
				
			
			
			
	
				str = "Select liga, liga_divisao FROM torneios_tipos where id="&id_tipo
    			Set rs = conexao_aux.Execute(str)		
				
				If not rs.eof then
				
					str = "Select id_clube FROM clubes_tipos where liga="&rs("liga")&" AND valor="&rs("liga_divisao")
    				Set rsC = conexao_aux.Execute(str)
					
					Do while not rsC.eof
					
						torneio_tipo_interface_clubes conexao_aux, tabela, rsC("id_clube")
						
					rsC.MoveNext
					Loop	
									
				ENd If
		
		
	Case "clubes_remover"
	
				str = "Select liga FROM torneios_tipos where id="&id_tipo
    			Set rs = conexao_aux.Execute(str)		
				
				If not rs.eof then
				
					str = "DELETE FROM clubes_tipos where liga="&rs("liga")&" AND id_clube="&valor
    				Set rsC = conexao_aux.Execute(str)
									
				ENd If
				
	Case "clubes_adicionar"
	
				str = "Select liga, liga_divisao FROM torneios_tipos where id="&id_tipo
    			Set rs = conexao_aux.Execute(str)		
				
				If not rs.eof And valor<>"" then

						
					id_clube = valor
					liga = rs("liga")
					valor = rs("liga_divisao")
				
					str = "Select id_clube FROM clubes_tipos where liga="&liga&" AND id_clube="&id_clube
					Set rs = conexao_aux.Execute(str)	
				
					If rs.eof then
					
						str = "INSERT into clubes_tipos "
						str = str & "(id_clube, liga, valor) "
						str = str & "VALUES ('" & id_clube &"', "
						str = str & "'" & liga & "', "
						str = str & "'" & valor & "')"	
						Set rsI = conexao_aux.Execute(str)
						
					ENd If	
					
												
				ENd If				
				
				response.Redirect "torneios_tipos_funcoes.asp?opcao=clubes&tabela="&tabela&"&id_tipo="&id_tipo
				
End Select


%>

<!-- #include file="interface/footer.asp" -->